home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9112a.d64 / listing 1 < prev    next >
Text File  |  1995-03-30  |  1KB  |  59 lines
  1.  Listing 1:
  2. sei ;Interrupt-Flag setzen
  3. lda  #<neuirq ;IRQ-Vektor
  4. ldx  #>neuirq ;auf neue
  5. sta  $0314 ;Routine
  6. stx  $0315 ;verbiegen
  7. lda  #$7f ;Timer-Interrupt
  8. sta  $dc0d ;verhindern
  9. lda  #$01 ;Raster-Interrupt
  10. sta  $d01a ;zulassen
  11. lda  #$28 ;Raster-Zeile
  12. sta  $d012 ;definieren
  13. lda  $d011 ;Bit8
  14. and  #$7f ;löschen
  15. sta  $d011
  16. lda  #$00 ;Geisterbyte
  17. sta  $3fff ;löschen
  18. cli ;Interrupt-Flag löschen
  19. rts
  20.  
  21. :neuirqlda  $d019 ;Register $d019
  22. sta  $d019 ;löschen
  23.  
  24. ldx  #$00 ;Zähler auf null setzen
  25. lda  #$19 ;Raster-Zeile
  26. :waitzeilecmp  $d012 ;abwarten
  27. bcs  waitzeile
  28. ldy  #$0c ;Verzögerung
  29. :wait1dey
  30. bne  wait1
  31. lda  #$10 ;exaktes Timing
  32. sta  $d011 ;initialisieren
  33. ldy  #$20 ;Verzögerung
  34. :wait2dey
  35. bne  wait2
  36. bit  $c0
  37. bit  $c0
  38. :labelldy  $d012;FLD-Trick !!!
  39. dey
  40. tya
  41. and  #$07
  42. ora  #$10
  43. sta  $d011
  44. lda  farbe,x ;Farbwerte setzen
  45. sta  $d020
  46. sta  $d021
  47.  
  48. ror  $ffff,x ;Verzögerung
  49. ror  $ffff,x
  50. ror  $ffff,x
  51. ror  $ffff,x
  52.  
  53. inx
  54. cpx  #$16 ;22 Zeilen
  55. bne  label ;eingefärbt?
  56. jmp  $ea81
  57.  
  58. :farbe.b   15,0,6,14,15,6,14,3,15,6,14
  59. .b   3,1,15,6,13,3,1,3,14,6,0